home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / frmsplas.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-20  |  5.2 KB  |  166 lines
  1. VERSION 5.00
  2. Begin VB.Form Splash 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4710
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   7455
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4710
  14.    ScaleWidth      =   7455
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Tag             =   "1041"
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   3000
  20.       Left            =   6120
  21.       Top             =   4080
  22.    End
  23.    Begin VB.Label Label2 
  24.       Alignment       =   2  'Center
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "Mike Altmanshofer  Timeline Studios Software."
  27.       BeginProperty Font 
  28.          Name            =   "MS Serif"
  29.          Size            =   6
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H00FFFFFF&
  37.       Height          =   360
  38.       Left            =   -375
  39.       TabIndex        =   1
  40.       Top             =   4440
  41.       Width           =   3540
  42.    End
  43.    Begin VB.Label Label1 
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "
  46. 1999  All rights reserved."
  47.       BeginProperty Font 
  48.          Name            =   "MS Sans Serif"
  49.          Size            =   12
  50.          Charset         =   0
  51.          Weight          =   400
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       ForeColor       =   &H00FFFFFF&
  57.       Height          =   255
  58.       Left            =   120
  59.       TabIndex        =   0
  60.       Top             =   4110
  61.       Width           =   3375
  62.    End
  63.    Begin VB.Image Image2 
  64.       Height          =   1800
  65.       Left            =   600
  66.       Picture         =   "frmSplash.frx":0000
  67.       Top             =   2175
  68.       Width           =   6000
  69.    End
  70.    Begin VB.Image Image1 
  71.       Height          =   1800
  72.       Left            =   120
  73.       Picture         =   "frmSplash.frx":339E
  74.       Top             =   300
  75.       Width           =   5550
  76.    End
  77. Attribute VB_Name = "Splash"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
  83. Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
  84.     Const CCDEVICENAME = 32
  85.     Const CCFORMNAME = 32
  86.     Const DM_PELSWIDTH = &H80000
  87.     Const DM_PELSHEIGHT = &H100000
  88. Private Type DEVMODE
  89.     dmDeviceName As String * CCDEVICENAME
  90.     dmSpecVersion As Integer
  91.     dmDriverVersion As Integer
  92.     dmSize As Integer
  93.     dmDriverExtra As Integer
  94.     dmFields As Long
  95.     dmOrientation As Integer
  96.     dmPaperSize As Integer
  97.     dmPaperLength As Integer
  98.     dmPaperWidth As Integer
  99.     dmScale As Integer
  100.     dmCopies As Integer
  101.     dmDefaultSource As Integer
  102.     dmPrintQuality As Integer
  103.     dmColor As Integer
  104.     dmDuplex As Integer
  105.     dmYResolution As Integer
  106.     dmTTOption As Integer
  107.     dmCollate As Integer
  108.     dmFormName As String * CCFORMNAME
  109.     dmUnusedPadding As Integer
  110.     dmBitsPerPel As Integer
  111.     dmPelsWidth As Long
  112.     dmPelsHeight As Long
  113.     dmDisplayFlags As Long
  114.     dmDisplayFrequency As Long
  115. End Type
  116.     Dim DevM As DEVMODE
  117. Private Sub form_load()
  118. autokenomode = 0
  119. delaytime = 50
  120. normalwidth = Screen.Width \ Screen.TwipsPerPixelX
  121. normalheight = Screen.Height \ Screen.TwipsPerPixelY
  122. fullmode = GetSetting(App.Title, "options", "fullmode", 0)
  123. If fullmode = 1 Then
  124. Call ChangeRes(640, 480)
  125. options.fullscreenmode.Enabled = True
  126. options.fullscreenmode.Checked = True
  127. End If
  128. End Sub
  129. Private Sub Timer1_Timer()
  130. options.Show
  131. Call formcircle(Me, 40)
  132. Unload Me
  133. End Sub
  134. Sub ChangeRes(iWidth As Single, iHeight As Single)
  135.     Dim a As Boolean
  136.     Dim i&
  137.     i = 0
  138.     Do
  139.         a = EnumDisplaySettings(0&, i&, DevM)
  140.         i = i + 1
  141.     Loop Until (a = False)
  142.         Dim b&
  143.         DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
  144.         DevM.dmPelsWidth = iWidth
  145.         DevM.dmPelsHeight = iHeight
  146.         b = ChangeDisplaySettings(DevM, 0)
  147. End Sub
  148. Sub formcircle(frm As Form, Size As Integer)
  149.     For e% = Size% - 1 To 0 Step -1
  150.         frm.Left = frm.Left - e%
  151.         frm.Top = frm.Top + (Size% - e%)
  152.     Next e%
  153.     For e% = Size% - 1 To 0 Step -1
  154.         frm.Left = frm.Left + (Size% - e%)
  155.         frm.Top = frm.Top + e%
  156.     Next e%
  157.     For e% = Size% - 1 To 0 Step -1
  158.         frm.Left = frm.Left + e%
  159.         frm.Top = frm.Top - (Size% - e%)
  160.     Next e%
  161.     For e% = Size% - 1 To 0 Step -1
  162.         frm.Left = frm.Left - (Size% - e%)
  163.         frm.Top = frm.Top - e%
  164.     Next e%
  165. End Sub
  166.